$PBExportHeader$w_datos_exc_gen.srw
forward
global type w_datos_exc_gen from w_abm_detalle
end type
end forward

global type w_datos_exc_gen from w_abm_detalle
end type
global w_datos_exc_gen w_datos_exc_gen

on w_datos_exc_gen.create
call super::create
end on

on w_datos_exc_gen.destroy
call super::destroy
end on

event ue_iniciar;call super::ue_iniciar;decimal ldc_inasis_promo, ldc_inasis_regul
long ll_var
string ls_var

setnull(ll_var)
setnull(ls_var)

IF at_op.accion <> 'A' THEN
	IF isnull(dw_1.getitemstring(1,'carrera')) THEN
		dw_1.setitem(1,'todas_carreras','0')
	ELSE
		dw_1.setitem(1,'todas_carreras','1')
	END IF
	
	IF isnull(dw_1.getitemnumber(1,'comision')) THEN
		dw_1.setitem(1,'todas_comisiones','0')
	ELSE
		dw_1.setitem(1,'todas_comisiones','1')
	END IF
	
	IF isnull(dw_1.getitemstring(1,'tipo_clase')) THEN
		dw_1.setitem(1,'todos_tipos_clases','0')
	ELSE
		dw_1.setitem(1,'todos_tipos_clases','1')
	END IF
ELSE
	ldc_inasis_promo = dec(f_param_sistema("asist_porcentaje_inasist_promo"))
	ldc_inasis_regul = dec(f_param_sistema("asist_porcentaje_inasist_regul"))
	
	dw_1.setitem(1,'porcentaje_regul',ldc_inasis_regul)
	dw_1.setitem(1,'porcentaje_promo',ldc_inasis_promo)
	
	dw_1.setitem(1,'carrera',ls_var)
	dw_1.setitem(1,'comision',ll_var)
	dw_1.setitem(1,'tipo_clase',ls_var)
END IF 



end event

event ue_validar_datos;call super::ue_validar_datos;long fila
decimal ld_prom, ld_regul

fila = dw_1.getrow()
ld_prom = dw_1.getitemdecimal(fila,'porcentaje_regul')
ld_regul = dw_1.getitemnumber(fila,'porcentaje_regul')

IF ld_prom < 0 OR ld_regul < 0 THEN
	guo_app.msg.uof_SetMsg(800000,'Los porcentajes deben estar entre 0 y 100.')
	This.ib_grabar = FALSE	
END IF 

IF (isnull(ld_prom) OR ( ld_prom = 0 )) AND (isnull(ld_regul) OR (ld_regul = 0) ) THEN
	guo_app.msg.uof_SetMsg(800000,'Al menos uno de los porcentajes admitidos no debe ser nulo.')
	This.ib_grabar = FALSE
END IF
end event

event ue_dw_itemchanged;call super::ue_dw_itemchanged;long ll_var
string ls_tipo

setnull(ll_var)
setnull(ls_tipo)

IF dwo.name = 'carrera' THEN
	dw_1.setitem(row,'comision',ll_var)
	dw_1.setitem(row,'tipo_clase',ls_tipo)
ELSEIF dwo.name = 'comision' THEN
	dw_1.setitem(row,'tipo_clase',ls_tipo)	
ELSEIF dwo.name = 'anio_academico' OR dwo.name = 'anio_academico' THEN
	dw_1.setitem(row,'tipo_clase',ls_tipo)
	dw_1.setitem(row,'carrera',ll_var)	
END IF
return 0;	

end event

